home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / boot / cv101.lha / Install < prev    next >
Text File  |  1995-08-13  |  2KB  |  153 lines
  1. ;$VER: Install 1.01 (06.08.1995) (C) Copyright Tomi Blinnikka
  2.  
  3. (complete 0)
  4.  
  5. (set action
  6.     (askchoice
  7.         (prompt "Please choose action:")
  8.         (help "You can either install or remove CheckVal with this utility.\n\n" @askchoice-help)
  9.         (choices "Install" "Remove")
  10.         (default 0)
  11.     )
  12. )
  13.  
  14. (if (= action 0)
  15.  
  16. (
  17.  
  18.     (set CV-dest
  19.             (askdir
  20.                 (prompt "In which drawer should CheckVal be installed?")
  21.                 (help @askdir-help)
  22.                 (default "SYS:C")
  23.             )
  24.     )
  25.     (set @default-dest CV-dest)
  26.  
  27.  
  28.     (complete 35)
  29.  
  30.     (copyfiles
  31.         (source "CheckVal/CheckVal")
  32.         (dest CV-dest)
  33.         (prompt "Copying main program to "cv-dest".")
  34.         (help @copyfiles-help)
  35.         (infos)
  36.         (confirm)
  37.     )
  38.  
  39.  
  40.  
  41.     (complete 56)
  42.  
  43.     (set CVguide-dest
  44.         (askdir
  45.             (prompt "Where should the AmigaGuide document be installed?")
  46.             (help @askdir-help)
  47.             (default "Guide:")
  48.         )
  49.     )
  50.  
  51.  
  52.     (complete 65)
  53.  
  54.     (copyfiles
  55.         (source "CheckVal/CheckVal.guide")
  56.         (dest CVguide-dest)
  57.         (help @copyfiles-help)
  58.         (infos)
  59.     )
  60.  
  61.  
  62.  
  63.     (complete 96)
  64.  
  65.     (message "Please add the following line to your S:StartUp-Sequence:\n\n"
  66.         (tackon CV-dest "CheckVal\n\n\n")
  67.  
  68.          "or\n\n\n"
  69.         (tackon CV-dest "CheckVal AUTO")
  70.  
  71.     )
  72.  
  73.     (complete 100)
  74.  
  75.     (exit)
  76.  
  77. ))
  78.  
  79. (if (= action 1)
  80.  
  81. (
  82.  
  83.     (set @abort-button "Abort Removal")
  84.  
  85.     (complete 6)
  86.  
  87.     (set name
  88.         (askdir
  89.             (prompt "Where is CheckVal installed?")
  90.             (help @askdir-help)
  91.             (default "SYS:C")
  92.         )
  93.     )
  94.  
  95.     (complete 43)
  96.  
  97.  
  98.     (if (= (askbool
  99.         (prompt "Do you wish to delete the CheckVal program in the directory \"" name "\"?")
  100.         (help "Selecting 'Proceed' will destroy the the file 'CheckVal' in this directory.")
  101.         (choices "Proceed" "Skip This Part")
  102.         )
  103.     1)
  104.  
  105.         (
  106.             (set file (cat "Delete \"" name "/CheckVal\""))
  107.             (run file)
  108.  
  109.         )
  110.     )
  111.  
  112.  
  113.  
  114.     (complete 87)
  115.  
  116.  
  117.     (if (= 2 (exists "Guide:" (noreq)))
  118.         (
  119.             (if (= (askbool
  120.                 (prompt "Going to delete Guide:CheckVal.guide.\n\nAre you sure you want to continue?")
  121.                 (help "Selecting 'Proceed' will destroy the specified file.")
  122.                 (choices "Proceed" "Skip This Part")
  123.                 )
  124.             1)
  125.  
  126.                 (
  127.                     (run "Delete Guide:CheckVal.guide QUIET")
  128.                     (run "Delete Guide:CheckVal.guide.info QUIET")
  129.                 )
  130.             )
  131.  
  132.             (complete 98)
  133.  
  134.         )
  135.     )
  136.  
  137.  
  138.  
  139.     (complete 99)
  140.  
  141.     (message "Please remove this line from your S:StartUp-Sequence:\n\n"
  142.         (tackon name "CheckVal")
  143.     )
  144.  
  145.  
  146.     (complete 100)
  147.  
  148.     (message "Removal Complete!\n\nCheckVal should now be removed from your system.")
  149.  
  150.     (exit (quiet))
  151.  
  152. ))
  153.